home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 2004 Junue - Disc 1 / MacFormat 143 CD1.iso / Serious Software / RealCADD3.05.sit / RealCADD3.05 / scripts / trou < prev    next >
Text File  |  2003-04-07  |  578b  |  47 lines
  1. RCAD script
  2. 1.00
  3. trou
  4. trouup
  5. troudown
  6. 0
  7. 0
  8. 1
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29. Dim s_x1,s_y1,s_x2,s_y2,s_dx,s_dy as double
  30.  
  31. s_dx = lastx - firstx
  32. s_dy = lasty - firsty
  33. s_x1 = firstx + 4 * s_dx / abs(s_dx)
  34. s_y1 = firsty + 4 * s_dy / abs(s_dy)
  35. s_x2 = lastx - 4 * s_dx / abs(s_dx)
  36. s_y2 = lasty - 4 * s_dy / abs(s_dy)
  37. Add_Polygon(s_x1,s_y1,1,7,7,True,False)
  38. Add_PointToPolygon(s_x2,s_y1)
  39. Add_PointToPolygon(s_x2,s_y1+ 0.5)
  40. Add_PointToPolygon(s_x1 + 8 * s_dx / abs(s_dx),s_y1 + 8 * s_dy / abs(s_dy))
  41. Add_PointToPolygon(s_x1+ 0.5,s_y2)
  42. Add_PointToPolygon(s_x1,s_y2)
  43. Add_PointToPolygon(s_x1,s_y1)
  44.  
  45.  
  46.  
  47.